home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / misc / edu / Dictionar.lha / Dictionar / DicPrefs.bas < prev    next >
BASIC Source File  |  1999-10-05  |  601b  |  28 lines
  1. WINDOW 1,"Dictionary Preferences",(1,1)-(400,200),31
  2. print
  3. print "Preferences Program v2.20 for Dictionar"
  4. print
  5. print "Please enter your answers!"
  6. print
  7. line input "Your name> ",iam$
  8. line input "1st Language> ",l1$
  9. line input "2nd Language> ",l2$
  10. line input "Vertical size of screenfont>", v$
  11. line input "Horizontal size of screenfont>", h$
  12. open "Envarc:dicend" for output as #1
  13. write #1, 0
  14. close #1
  15. open "envarc:iam" for output as #1
  16. write #1, iam$
  17. close #1
  18. open "envarc:diclang" for output as #1
  19. write #1, l1$,l2$
  20. close #1
  21. open "envarc:size" for output as #1
  22. write #1, val(v$),val(h$)
  23. close #1
  24.  
  25.  
  26.  
  27.  
  28.